home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / amos / eaissu3b.lha / Source_Code / RM_Blood_Splatter.AMOS / RM_Blood_Splatter.amosSourceCode < prev    next >
AMOS Source Code  |  1995-12-30  |  1KB  |  54 lines
  1. ' Blood splater. 
  2. '
  3. ' This is simular to the windscreen 2 routine  
  4. '
  5. ' It colour be useful for the next Amos Apocolypse!
  6. '
  7. ' (I doubt AJC will agree though!) 
  8. '
  9. ' By Richard Martin
  10. '  
  11. '
  12. Screen Open 0,320,200,4,Lowres
  13. Palette $0,$FFF,$F00,$C00
  14. Cls 0
  15. Ink 2
  16. Circle 50,50,3
  17. Paint 51,51
  18. Get Bob 1,45,45 To 55,55
  19. Cls 0
  20. Do 
  21.    BLOOD[Rnd(15)+20]
  22.    ' Put a delay between them 
  23.    Wait 15
  24.    Exit If Mouse Key
  25. Loop 
  26. '
  27. Procedure BLOOD[SIZE]
  28.    '
  29.    ' Draw great blood blob! 
  30.    '
  31.    CENTERX=Rnd(320)
  32.    CENTERY=Rnd(200)
  33.    For I=1 To SIZE
  34.       RAND1=Rnd(15)
  35.       RAND2=Rnd(10)
  36.       RAND3=Rnd(100)
  37.       If RAND3>50
  38.          RAND1=RAND1-(RAND1*2)
  39.          RAND2=RAND2-(RAND2*2)
  40.       End If 
  41.       Paste Bob CENTERX+RAND1,CENTERY-RAND2,1
  42.    Next I
  43. End Proc
  44. '
  45. '
  46. ' If you want to incorporate this into a game, look inside the BLOOD[] 
  47. ' procedure and see where is says Centerx=blaa blaa blaa and Centery=  
  48. ' bleat bleat bleat and replace them with the X and Y value of the thing 
  49. ' that got blasted.
  50. '
  51. ' I.E. 
  52. '
  53. ' Centerx=alienx 
  54. '